home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / demovers / texel / skripte / 42.tsc < prev    next >
Text File  |  1997-11-20  |  313b  |  18 lines
  1. // Berechnet die Fläche des Kreises mit dem Radius r=argv[2]
  2. // tm 97-11-20
  3.  
  4. proc main(...)
  5. {
  6.     if (argc<3) exit(1);
  7.  
  8.     datei = argv[0];
  9.     zelle = argv[1];
  10.     r     = argv[2];
  11.     
  12.     /* Fläche berechnen */
  13.     wert = pi() * r * r;
  14.  
  15.     /* Rückgabe des Ergebnisses */
  16.     Texel.ReturnCellValue(datei,zelle,wert);
  17. }
  18.